home *** CD-ROM | disk | FTP | other *** search
- 1 rem platoon music hack
- 10 fora=49152 to 49190:readb:poke a,b:next
- 20 print"choose the tune you want by pressing 1, 2 or 3 now!"
- 21 get a$:if a$="1" then poke 49158,0
- 22 if a$="2" then poke 49158,10
- 23 if a$="3" then poke 49158,20
- 24 if a$<>"1" and a$<>"2" and a$<>"3" then 21
- 25 sys 49152
- 30 :
- 31 data 120,169,53,133,1,160,0,32,15,226
- 32 data 173,18,208,201,100,208,249,238
- 33 data 32,208,32,149,227,169,1,141,32
- 34 data 208,206,32,208,169,15,141,24
- 35 data 212,76,10,192
-